MacFormat 1994 October/Macformat17.cdr/Shareware City/Education/RLaB/toolbox/jordan.r

Text File | 1994-06-18 | 244 b | 10 lines | [TEXT/ttxt]

//
//JORDAN  JORDAN(N, LAMBDA) is the N-by-N Jordan block with eigenvalue LAMBDA.
//        LAMBDA = 1 is the default.

jordan = function(n, lambda)
{
  if(!exist (lambda)) { lambda = 1; }
  return ( lambda*eye(n,n) + diag(ones(n-1,1),1) );
};